Inference at * 2 3 
Iof proof for Lemma adjacent-append:



1. T : Type
2. x : T
3. y : T
4. L1 : T List
5. L2 : T List
6. i : {0..(||L2|| - 1)}
7. x = L2[i]
8. y = L2[(i+1)]
  i:{0..(||L1 @ L2|| - 1)}. (x = (L1 @ L2)[i] & y = (L1 @ L2)[(i+1)]) 

latex

 by ((((InstConcl [||L1||+i]) 
CollapseTHEN (Auto'))) 
CollapseTHEN (((
CRWO "select_append_back" 0) 
CollapseTHEN (((Auto') 
CollapseTHEN (((All ArithSimp) 

CoCollapseTHEN (Auto)))))))) 

latex

C.

Definitions	n+m, ||as||, x:A. B(x), as @ bs, P  Q, P  Q, i  j , , x:A. B(x), T, True, n - m, x:AB(x), Void, #$n, l[i], t  T, {x:A| B(x)} , , i  j < k, A, False, P  Q, -n, s = t, {i..j}, type List, Type, P & Q, x:A  B(x), A  B, a < b
Lemmas	iff wf, rev implies wf, select append back, true wf, int seg wf, le wf, squash wf, select wf